home *** CD-ROM | disk | FTP | other *** search
/ Best of www.BestZips.com (Collector's Edition) / Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO / prgtools / prtsut53.zip / SU1SRC.ZIP / FDEMO04.DFM / FDEMO04.txt next >
Text File  |  1996-12-09  |  15KB  |  596 lines

  1. object Form04: TForm04
  2.   Left = 15
  3.   Top = 157
  4.   Width = 625
  5.   Height = 486
  6.   ActiveControl = Panel1
  7.   Caption = 'Form04'
  8.   Font.Color = clBlack
  9.   Font.Height = -14
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   PixelsPerInch = 120
  13.   Position = poScreenCenter
  14.   OnCreate = FormCreate
  15.   TextHeight = 16
  16.   object Panel1: TPanel
  17.     Left = 0
  18.     Top = 0
  19.     Width = 617
  20.     Height = 61
  21.     Align = alTop
  22.     TabOrder = 0
  23.     object Label9: TLabel
  24.       Left = 16
  25.       Top = 36
  26.       Width = 423
  27.       Height = 21
  28.       Caption = 'This is a demonstration of the TPrintWin Component.'
  29.       Color = clBtnFace
  30.       Font.Color = clMaroon
  31.       Font.Height = -18
  32.       Font.Name = 'Arial'
  33.       Font.Style = []
  34.       ParentColor = False
  35.       ParentFont = False
  36.     end
  37.     object DBNavigator: TDBNavigator
  38.       Left = -98
  39.       Top = -138
  40.       Width = 137
  41.       Height = 31
  42.       DataSource = DataSource1
  43.       VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
  44.       Ctl3D = False
  45.       ParentCtl3D = False
  46.       TabOrder = 0
  47.     end
  48.     object Preview: TBitBtn
  49.       Left = 377
  50.       Top = 5
  51.       Width = 88
  52.       Height = 32
  53.       Caption = 'Pre&View'
  54.       TabOrder = 1
  55.       OnClick = PreviewClick
  56.       Glyph.Data = {
  57.         76010000424D7601000000000000760000002800000020000000100000000100
  58.         04000000000000010000130B0000130B00000000000000000000000000000000
  59.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  60.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
  61.         00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
  62.         8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
  63.         8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
  64.         8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
  65.         03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
  66.         03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
  67.         33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
  68.         33333337FFFF7733333333300000033333333337777773333333}
  69.       NumGlyphs = 2
  70.     end
  71.     object Exit: TBitBtn
  72.       Left = 469
  73.       Top = 5
  74.       Width = 88
  75.       Height = 32
  76.       Caption = '&Exit'
  77.       ModalResult = 2
  78.       TabOrder = 2
  79.       OnClick = ExitClick
  80.       NumGlyphs = 2
  81.     end
  82.     object DBNavigator1: TDBNavigator
  83.       Left = 24
  84.       Top = 8
  85.       Width = 241
  86.       Height = 25
  87.       DataSource = DataSource1
  88.       TabOrder = 3
  89.     end
  90.   end
  91.   object Panel2: TPanel
  92.     Left = 0
  93.     Top = 61
  94.     Width = 617
  95.     Height = 220
  96.     Align = alTop
  97.     BevelInner = bvLowered
  98.     BorderWidth = 4
  99.     Caption = 'Panel2'
  100.     TabOrder = 1
  101.     object ScrollBox: TScrollBox
  102.       Left = 6
  103.       Top = 6
  104.       Width = 605
  105.       Height = 208
  106.       HorzScrollBar.Margin = 6
  107.       HorzScrollBar.Range = 298
  108.       VertScrollBar.Margin = 6
  109.       VertScrollBar.Range = 362
  110.       VertScrollBar.Visible = False
  111.       Align = alClient
  112.       AutoScroll = False
  113.       BorderStyle = bsNone
  114.       Color = clBtnFace
  115.       Font.Color = clBlack
  116.       Font.Height = -13
  117.       Font.Name = 'MS Sans Serif'
  118.       Font.Style = []
  119.       ParentColor = False
  120.       ParentFont = False
  121.       TabOrder = 0
  122.       object Label1: TLabel
  123.         Left = 37
  124.         Top = 6
  125.         Width = 43
  126.         Height = 16
  127.         Alignment = taRightJustify
  128.         Caption = 'CustNo'
  129.         FocusControl = EditCustNo
  130.         Font.Color = clBlack
  131.         Font.Height = -13
  132.         Font.Name = 'Arial'
  133.         Font.Style = []
  134.         ParentFont = False
  135.       end
  136.       object Label2: TLabel
  137.         Left = 25
  138.         Top = 35
  139.         Width = 55
  140.         Height = 16
  141.         Alignment = taRightJustify
  142.         Caption = 'Company'
  143.         FocusControl = EditCompany
  144.         Font.Color = clBlack
  145.         Font.Height = -13
  146.         Font.Name = 'Arial'
  147.         Font.Style = []
  148.         ParentFont = False
  149.       end
  150.       object Label3: TLabel
  151.         Left = 46
  152.         Top = 63
  153.         Width = 34
  154.         Height = 16
  155.         Alignment = taRightJustify
  156.         Caption = 'Addr1'
  157.         FocusControl = EditAddr
  158.         Font.Color = clBlack
  159.         Font.Height = -13
  160.         Font.Name = 'Arial'
  161.         Font.Style = []
  162.         ParentFont = False
  163.       end
  164.       object Label4: TLabel
  165.         Left = 46
  166.         Top = 93
  167.         Width = 34
  168.         Height = 16
  169.         Alignment = taRightJustify
  170.         Caption = 'Addr2'
  171.         FocusControl = EditAddr2
  172.         Font.Color = clBlack
  173.         Font.Height = -13
  174.         Font.Name = 'Arial'
  175.         Font.Style = []
  176.         ParentFont = False
  177.       end
  178.       object Label5: TLabel
  179.         Left = 57
  180.         Top = 121
  181.         Width = 23
  182.         Height = 20
  183.         Alignment = taRightJustify
  184.         Caption = 'City'
  185.         FocusControl = EditCity
  186.         Font.Color = clBlack
  187.         Font.Height = -13
  188.         Font.Name = 'Arial'
  189.         Font.Style = []
  190.         ParentFont = False
  191.       end
  192.       object Label6: TLabel
  193.         Left = 49
  194.         Top = 150
  195.         Width = 31
  196.         Height = 16
  197.         Alignment = taRightJustify
  198.         Caption = 'State'
  199.         FocusControl = EditState
  200.         Font.Color = clBlack
  201.         Font.Height = -13
  202.         Font.Name = 'Arial'
  203.         Font.Style = []
  204.         ParentFont = False
  205.       end
  206.       object Label7: TLabel
  207.         Left = 63
  208.         Top = 178
  209.         Width = 17
  210.         Height = 16
  211.         Alignment = taRightJustify
  212.         Caption = 'Zip'
  213.         FocusControl = EditZip
  214.         Font.Color = clBlack
  215.         Font.Height = -13
  216.         Font.Name = 'Arial'
  217.         Font.Style = []
  218.         ParentFont = False
  219.       end
  220.       object Image1: TImage
  221.         Left = 312
  222.         Top = 116
  223.         Width = 85
  224.         Height = 89
  225.         Picture.Data = {<image000.bmp>}
  226.       end
  227.       object GroupBox1: TGroupBox
  228.         Left = 400
  229.         Top = 4
  230.         Width = 185
  231.         Height = 125
  232.         Caption = 'Testing '
  233.         Font.Color = clBlack
  234.         Font.Height = -13
  235.         Font.Name = 'Arial'
  236.         Font.Style = []
  237.         ParentFont = False
  238.         TabOrder = 7
  239.         object Label8: TLabel
  240.           Left = 24
  241.           Top = 20
  242.           Width = 107
  243.           Height = 16
  244.           Caption = 'Label in GroupBox'
  245.           Font.Color = clBlack
  246.           Font.Height = -13
  247.           Font.Name = 'Arial'
  248.           Font.Style = []
  249.           ParentFont = False
  250.         end
  251.         object CheckBox1: TCheckBox
  252.           Left = 24
  253.           Top = 48
  254.           Width = 97
  255.           Height = 17
  256.           Caption = 'CheckBox '
  257.           Font.Color = clBlack
  258.           Font.Height = -13
  259.           Font.Name = 'Arial'
  260.           Font.Style = []
  261.           ParentFont = False
  262.           TabOrder = 0
  263.         end
  264.         object RadioButton1: TRadioButton
  265.           Left = 24
  266.           Top = 76
  267.           Width = 113
  268.           Height = 17
  269.           Caption = 'RadioButton1'
  270.           Font.Color = clBlack
  271.           Font.Height = -13
  272.           Font.Name = 'Arial'
  273.           Font.Style = []
  274.           ParentFont = False
  275.           TabOrder = 1
  276.         end
  277.         object RadioButton2: TRadioButton
  278.           Left = 24
  279.           Top = 96
  280.           Width = 113
  281.           Height = 17
  282.           Caption = 'RadioButton2'
  283.           Checked = True
  284.           Font.Color = clBlack
  285.           Font.Height = -13
  286.           Font.Name = 'Arial'
  287.           Font.Style = []
  288.           ParentFont = False
  289.           TabOrder = 2
  290.           TabStop = True
  291.         end
  292.       end
  293.       object EditCustNo: TDBEdit
  294.         Left = 102
  295.         Top = 5
  296.         Width = 70
  297.         Height = 24
  298.         Color = clWhite
  299.         DataField = 'CustNo'
  300.         DataSource = DataSource1
  301.         Font.Color = clMaroon
  302.         Font.Height = -13
  303.         Font.Name = 'Arial'
  304.         Font.Style = []
  305.         MaxLength = 0
  306.         ParentFont = False
  307.         TabOrder = 0
  308.       end
  309.       object EditCompany: TDBEdit
  310.         Left = 102
  311.         Top = 33
  312.         Width = 211
  313.         Height = 24
  314.         Color = clWhite
  315.         DataField = 'Company'
  316.         DataSource = DataSource1
  317.         Font.Color = clMaroon
  318.         Font.Height = -13
  319.         Font.Name = 'Arial'
  320.         Font.Style = []
  321.         MaxLength = 30
  322.         ParentFont = False
  323.         TabOrder = 1
  324.       end
  325.       object EditAddr: TDBEdit
  326.         Left = 102
  327.         Top = 61
  328.         Width = 211
  329.         Height = 24
  330.         Color = clWhite
  331.         DataField = 'Addr1'
  332.         DataSource = DataSource1
  333.         Font.Color = clMaroon
  334.         Font.Height = -13
  335.         Font.Name = 'Arial'
  336.         Font.Style = []
  337.         MaxLength = 30
  338.         ParentFont = False
  339.         TabOrder = 2
  340.       end
  341.       object EditAddr2: TDBEdit
  342.         Left = 102
  343.         Top = 89
  344.         Width = 211
  345.         Height = 24
  346.         Color = clWhite
  347.         DataField = 'Addr2'
  348.         DataSource = DataSource1
  349.         Font.Color = clMaroon
  350.         Font.Height = -13
  351.         Font.Name = 'Arial'
  352.         Font.Style = []
  353.         MaxLength = 30
  354.         ParentFont = False
  355.         TabOrder = 3
  356.       end
  357.       object EditCity: TDBEdit
  358.         Left = 102
  359.         Top = 117
  360.         Width = 106
  361.         Height = 24
  362.         Color = clWhite
  363.         DataField = 'City'
  364.         DataSource = DataSource1
  365.         Font.Color = clMaroon
  366.         Font.Height = -13
  367.         Font.Name = 'Arial'
  368.         Font.Style = []
  369.         MaxLength = 15
  370.         ParentFont = False
  371.         TabOrder = 4
  372.       end
  373.       object EditState: TDBEdit
  374.         Left = 102
  375.         Top = 145
  376.         Width = 139
  377.         Height = 24
  378.         Color = clWhite
  379.         DataField = 'State'
  380.         DataSource = DataSource1
  381.         Font.Color = clMaroon
  382.         Font.Height = -13
  383.         Font.Name = 'Arial'
  384.         Font.Style = []
  385.         MaxLength = 20
  386.         ParentFont = False
  387.         TabOrder = 5
  388.       end
  389.       object EditZip: TDBEdit
  390.         Left = 102
  391.         Top = 173
  392.         Width = 70
  393.         Height = 24
  394.         Color = clWhite
  395.         DataField = 'Zip'
  396.         DataSource = DataSource1
  397.         Font.Color = clMaroon
  398.         Font.Height = -13
  399.         Font.Name = 'Arial'
  400.         Font.Style = []
  401.         MaxLength = 10
  402.         ParentFont = False
  403.         TabOrder = 6
  404.       end
  405.       object RadioGroup1: TRadioGroup
  406.         Left = 400
  407.         Top = 132
  408.         Width = 185
  409.         Height = 69
  410.         Caption = 'RadioGroup Test'
  411.         Font.Color = clBlack
  412.         Font.Height = -13
  413.         Font.Name = 'Arial'
  414.         Font.Style = []
  415.         ParentFont = False
  416.         TabOrder = 8
  417.       end
  418.       object RadioButton3: TRadioButton
  419.         Left = 424
  420.         Top = 152
  421.         Width = 113
  422.         Height = 17
  423.         Alignment = taLeftJustify
  424.         Caption = 'RadioButton3'
  425.         Checked = True
  426.         Font.Color = clBlack
  427.         Font.Height = -13
  428.         Font.Name = 'Arial'
  429.         Font.Style = []
  430.         ParentFont = False
  431.         TabOrder = 9
  432.         TabStop = True
  433.       end
  434.       object RadioButton4: TRadioButton
  435.         Left = 424
  436.         Top = 172
  437.         Width = 113
  438.         Height = 17
  439.         Alignment = taLeftJustify
  440.         Caption = 'RadioButton4'
  441.         Font.Color = clBlack
  442.         Font.Height = -13
  443.         Font.Name = 'Arial'
  444.         Font.Style = []
  445.         ParentFont = False
  446.         TabOrder = 10
  447.       end
  448.     end
  449.   end
  450.   object Panel3: TPanel
  451.     Left = 0
  452.     Top = 281
  453.     Width = 617
  454.     Height = 178
  455.     Align = alClient
  456.     BevelInner = bvLowered
  457.     BorderWidth = 4
  458.     Caption = 'Panel3'
  459.     TabOrder = 2
  460.     object DBGrid1: TDBGrid
  461.       Left = 6
  462.       Top = 6
  463.       Width = 605
  464.       Height = 166
  465.       Align = alClient
  466.       BorderStyle = bsNone
  467.       DataSource = DataSource2
  468.       Font.Color = clBlack
  469.       Font.Height = -13
  470.       Font.Name = 'Arial'
  471.       Font.Style = []
  472.       ParentFont = False
  473.       TabOrder = 0
  474.       TitleFont.Color = clBlack
  475.       TitleFont.Height = -13
  476.       TitleFont.Name = 'Arial'
  477.       TitleFont.Style = []
  478.     end
  479.   end
  480.   object DataSource1: TDataSource
  481.     DataSet = Table1
  482.     Left = 335
  483.     Top = 61
  484.   end
  485.   object DataSource2: TDataSource
  486.     DataSet = Table2
  487.     Left = 333
  488.     Top = 25
  489.   end
  490.   object Table1: TTable
  491.     Active = True
  492.     DatabaseName = 'DBDEMOS'
  493.     TableName = 'customer.db'
  494.     Left = 308
  495.     Top = 61
  496.   end
  497.   object Table2: TTable
  498.     Active = True
  499.     DatabaseName = 'DBDEMOS'
  500.     IndexFieldNames = 'CustNo'
  501.     MasterFields = 'CustNo'
  502.     MasterSource = DataSource1
  503.     TableName = 'orders.db'
  504.     Left = 306
  505.     Top = 21
  506.     object Table2OrderNo: TFloatField
  507.       FieldName = 'OrderNo'
  508.     end
  509.     object Table2CustNo: TFloatField
  510.       FieldName = 'CustNo'
  511.       Required = True
  512.       Visible = False
  513.     end
  514.     object Table2SaleDate: TDateTimeField
  515.       FieldName = 'SaleDate'
  516.     end
  517.     object Table2ShipDate: TDateTimeField
  518.       FieldName = 'ShipDate'
  519.     end
  520.     object Table2ShipVIA: TStringField
  521.       FieldName = 'ShipVIA'
  522.       Size = 7
  523.     end
  524.     object Table2Terms: TStringField
  525.       FieldName = 'Terms'
  526.       Size = 6
  527.     end
  528.     object Table2PaymentMethod: TStringField
  529.       FieldName = 'PaymentMethod'
  530.       Size = 7
  531.     end
  532.     object Table2ItemsTotal: TCurrencyField
  533.       FieldName = 'ItemsTotal'
  534.       Currency = True
  535.     end
  536.     object Table2AmountPaid: TCurrencyField
  537.       FieldName = 'AmountPaid'
  538.       Currency = True
  539.     end
  540.   end
  541.   object DBPrintWin1: TDBPrintWin
  542.     About = 'Version 5.32'
  543.     AboutRegistered = 'TOM SNIDER'
  544.     HeaderFont.Color = clWindowText
  545.     HeaderFont.Height = 16
  546.     HeaderFont.Name = 'Arial'
  547.     HeaderFont.Style = []
  548.     Font.Color = clWindowText
  549.     Font.Height = 16
  550.     Font.Name = 'Arial'
  551.     Font.Style = []
  552.     FooterFont.Color = clWindowText
  553.     FooterFont.Height = 12
  554.     FooterFont.Name = 'Arial'
  555.     FooterFont.Style = []
  556.     FrameObjects = True
  557.     clBtnFaceAsWhite = True
  558.     OutputTo = poViewer
  559.     Orientation = Default
  560.     Units = poInches
  561.     ViewButtonVisible = False
  562.     ShowCancelDialog = True
  563.     LineWidth = 0
  564.     Copies = 1
  565.     GridBackDrop = False
  566.     GridBackDropUnits = poInches
  567.     ZoomPercentage = 25.000000000000000000
  568.     HeaderTop = 0.500000000000000000
  569.     HeaderLeft = 0.500000000000000000
  570.     HeaderStringLeft = '                                  '
  571.     HeaderStringCenter = '                                  '
  572.     HeaderStringRight = '                                  '
  573.     HeaderEnabled = True
  574.     HeaderOutlined = False
  575.     HeaderFilled = False
  576.     TextColor = clBlack
  577.     ViewBkColor = 11234567
  578.     ViewHeading = 'Printit Viewer'
  579.     HeadingColor = clSilver
  580.     FrameStyle = frThin
  581.     FooterTop = 10.170000000000000000
  582.     FooterString = '                                                  '
  583.     FooterEnabled = True
  584.     FooterOutlined = False
  585.     FooterFilled = False
  586.     FixSansSerif = True
  587.     FooterStringLeft = 'Printed on @Date at @Time'
  588.     FooterStringRight = 'Page @Page'
  589.     BorderLeft = 0.500000000000000000
  590.     BorderRight = 0.500000000000000000
  591.     LineSpacing = 2.800000000000000000
  592.     Left = 536
  593.     Top = 48
  594.   end
  595. end
  596.